(defun make-cd (title artist rating ripped)
  (list :title title :artist artist :rating rating :ripped ripped))

(defvar *db* nil)


(defun add-record (cd) (push cd *db*))

(load "server.lisp")


